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BASIC 


1] Bucles 
« anidados 


N un mismo programa 
podemos utilizar va- 
rios bucles FOR-TO- 
NEXT, independientes 
o anidados. Los bu- 
cles anidados son 
aquellos que están 
dispuestos uno den- 
tro de otro, por decirlo de algún modo. 

Podemos anidar tantos bucles como 
deseemos, pero siempre debemos tener 
en cuenta que el orden para cerrar los 
bucles es inverso al de apertura, es de- 
cir, el primer bucle que abramos con la 
instrucción FOR-TO será el último que 
cerremos con NEXT y, por el contrario, el 
último que abramos será el primero que 
cerremos. 

En la figura 1 podemos ver el esquema 
de dos bucles anidados de forma correc- 
ta. 

Si estudiamos detenidamente este es- 
quema podemos ver que por cada vez 
que se repite el bucle exterior (B), el in- 
terior (A) se ejecuta por completo. Por 
tanto, en el caso del esquema de la figu- 
ra 1 por cada vez que se repite el bucle 


FOR L=1 TO 3 
<p FOR M=2 TO 4 


BUCLE B 
BUCLE 


NEXT M 


NEXT L 


[A Esquema de bucles anidados. 


B, el bucle A se repetirá tres veces, to- 
mando los valores 2, 3 y 4. 

El programa 1 posee una estructura si- 
milar a la de la figura 1. Su objetivo es im- 
primir en pantalla todas las combinacio- 
nes posibles que podemos obtener al 
lanzar dos dados distintos, uno blanco y 
otro negro. 

Podemos observar que el bucie denomi- 
nado A está incluido en el interior del B. 

El bucle exterior (líneas 60-100) sirve 
para imprimir en pantalla todos los posi- 
bles resultados del dado blanco, el bu- 
cle interior (líneas 70-90) se encarga de 
los resultados del dado negro. 


REM Arererrrrrrrrerrrsrrirrrerirs 
20 REM * COMBINACIONES DE DADOS  * 
dsd 


40 CLS . 
50 PRINT "DADO BLÁNCO";TAB(20>;"DADO NEGRO" 
60 FOR B=1 TO 64 

0 FOR N=1 TO 4 

30 PRINT B6¡TABC20);¿M 

F0 NEXT ON 

100 NEXT E 

110 PRINT "DADO BLANCO" ¡TAB(20)>;"DADO NEGRO" 


En la figura 2 podemos ver el aspecto 
de la pantalla durante la ejecución. 


DADO ELANCO sli NEGRO E 


PUNO 0 PUN 011 0 0 


1 
1 
1 
1 
1 
1 
2 
Y 
2 
ya 
2 
2 
3 
3 
3 
3 
3 
3 
4 
4 
4 
4 


Presentación en pantalla del programa 1. 


Evidentemente, todos los resultados no 
caben en la pantalla, por tanto, al finali- 
zar la ejecución sólo podremos ver en 
pantalla los resultados finales. En cual- 
quier caso, siempre podremos detener la 
ejecución antes de que finalice, en el 
momento que nos interese, utilizando las 
teclas que ya conocemos. En el SPEC- 
TRUM no sucede esto, ya que cuando se 
llena la pantalla la ejecución se detiene 
y aparece el mensaje scroll? para pre- 
guntarnos si deseamos que se imprima 
otra pantalla. En caso afirmativo no tene- 
mos más que pulsar cualquier tecla (ex- 
cepto N o BREAK). 

Los bucles anidados se utilizan mucho 
para realizar dibujos geométricos. Por 
ejemplo, el programa 2 tiene por objeto 
trazar en pantalla una retícula de asteris- 
COS. 


REM rre ersrrke 
20 REM x* RETICULA  * 

30 REM rrrrerrrrrrsiss 

40 CLS 

50 FOR C=3 TO 38 STEP 3 
£0 FOR F=1 TO 21 A 

70 LOCATE F,C:PRINT "x*” 
S0 NEXT F 

90 NEXT E 

100 FOR F=1 TO 21 STEP 5 
110 FOR C=3 TO 383 

120 LOCATE F,C:PRINT' “%" 
130 NEXT C 
140 NEXT F 


En este programa hemos utilizado dos 
parejas de bucles anidados. La primera 
(líneas 50-90) se encarga de imprimir en 
pantalla las líneas verticales, mientras 
que la segunda (líneas 100-140) traza las 
líneas horizontales. 


La variable C se utiliza para determinar 
la columna de la pantalla en la que se 
debe realizar la impresión en cada mo- 
mento, mientras que la variable f contro- 
la las filas de la pantalla. 

El objetivo es que la retícula se imprima 
en las filas y columnas indicadas en la fi- 
gura 3, lo cual justifica los STEP 5 de los 
bucles exteriores. 


3 8 13 18 23 28 33 38 
O 


[A Situación de la retícula en las filas y las 
columnas de la pantalla. 


El aspecto final de la pantalla es el que 
podemos ver en la figura 4. 


A Presentación en pantalla del programa 2. 

Debemos tener en cuenta que el pro- 
grama 2 se ha desarrollado para una 
pantalla de 40 columnas como las del 
AMSTRAD, el IBM o los MSX. Sin embargo, 
si estamos utilizando un AMSTRAD debe- 
mos cambiar los LOCATE F,C que apare- 
cen en las líneas 70 y 120 porLOCATE CF, 
es decir, invertir el orden de fila, columna 
por columnasfila. 

Por otra parte, si estamos utilizando un 
SPECTRUM tendremos que sustituir las si- 
guientes líneas: 


50 FOR C=1 TO 31 STEP 5 
70 PRINT ATF,C;“"" 

110 FOR C=1 TO 31 

120 PRINT AT F,C;*"* 


Además, podemos suprimir la línea 40. 
Por último, este programa no lo podría- 


. BASIC 


mos desarrollar de momento en el COM- 
MODORE, ya que no dispone de la ins- 
trucción LOCATE ni de AT. 


Veamos otro ejemplo de dibujo con 
bucles anidados. El programa 3 dibuja en 
el centro de la pantalla un triángulo rec- 
tángulo isósceles. 


REM EXEFEXELELELE LEAR 
20 REM * TRIANGULO RECTÁNGULO Me 
230 REM FERRERA AAA 
40 CLS : 

S0 FOR F=1 TO 20 

£0 FOR C=11 TO F+10 

7D LOCATE F,C:PRINT "" 

380 NEXT C 
0 NEXT F 


En este caso el valor final del bucle in- 
terior depende del valor de la variable 
índice del bucle exterior. De este modo 
conseguimos que el número de signos % 
que se imprimen en cada fila de la pan- 
talla vaya aumentando de uno en uno 
cada vez que se ejecuta el bucle exte- 
rior. 


Una vez ejecutado el programa obten- 
dremos una pantalla como la mostrada 
en la figura 5 


Al igual que sucedía en el programa 2, 
aquí también tendremos que cambiar el 
LOCATE F,C de la línea 70 por LOCATE CF, 
si tabajamos con un AMSTRAD. 


En el SPECTRUM tendremos que sustituir 
las siguientes líneas: 


[A Presentación en pantalla del programa 3. 


60 FOR C=6 TO F+5 
70 PRINT AT F,C;“%" 


Como último ejemplo vamos a desarro- 
llar el programa 4 que simula un reloj di- 
gital en el centro de la pantalla. Para ello 
utilizaremos cuatro bucles anidados. 


O PREM rrerrerrrrrrriro.o... 
20 REM * RELOJ DIGITAL  * 
DO REM RRE AAA 
40 CLS 

50 FOR H=0 TO 23 

60 FOR M=9 TO 59 

ZO FOR S=0 TO 35 

80 LOCATE 13,17 


POL PARENT AO ENE ó 
100 FOR T=1 TO 1000:NEXT T 
110 NEXT S 

120 NEXT M 

130 NEXT H 


140 GOTO 50 


El primer bucle (líneas 50-130) es el en- 
cargado de determinar las horas, ya que 
al ser el más exterior es el que se repite 
más lentamente. A continuación el se- 
gundo bucle (líneas 60-120) controla los 
minutos y el tercero (líneas 70-110) los se- 
gundos. Lógicamente cuanto más dentro 
se sitúe un bucle anidado más veces se 
repetirá, por tanto, esta disposición es 
correcta. 


Por otra parte, encontramos un cuarto 
bucle anidado en la línea 100 que pare- 
ce un tanto extraño. La instrucción FOR- 
TO y la instrucción NEXT van seguidas, por 
tanto, no existe cuerpo del bucle. Esto es 
lo que se denomina un bucle de retardo 
y funciona como un temporizador. Si su- 
primimos la línea 100 del programa po- 
demos observar que nuestro reloj va de- 
masiado acelerado. El bucle de retardo 
hace que el reloj marche aproximada- 
mente de segundo en segundo, ya que 
ese es el tiempo que emplea el ordena- 
dor en ejecutarlo. 


Conviene advertir que el valor final del 
bucle de retardo varía en cada ordena- 
dor, ya que depende de la velocidad 
del procesador. 


Finalmente la línea 50 produce un bu- 
cle infinito, ya que un reloj no se para a 
las doce de la noche, sino que vuelve a 
marcar las horas del nuevo día. 


suma 124+22+32...hasta que se iguala o 
supera un valor introducido previamente. 


En la figura 6 podemos ver el aspecto 
de la pantalla durante la ejecución. 


[a Presentación en pantalla del programa 4. 


Recordemos que para que este pro- 
grama funcione en el SPECTRUM tendre- 
mos que sustituir las lineas 80 y 90 por: 


80 PRINT AT 12,12:H; 0 M;0:05:% “ 


En el AMSTRAD sólo tenemos que cam- 
biar el LOCATE 13,17 de la línea 80 por 
LOCATE 17,13, mientras que en el COM- 
MODORE debemos suprimir la línea 80. 

Finalmente, en algunos ordenadores 
como el AMSTRAD, el IBM o los MSX no es 
necesario especificar tantos NEXT como 
bucles anidados haya. Basta con indicar 
una sola instrucción NEXT con todas las 
variables indice a continuación, separa- 
das por comas, pero siempre respetando 
el orden: la primera debe corresponder 
al último bucle abierto y la última al pri- 
mer bucle. Por tanto, en el programa 4, 
por ejemplo, podríamos sustituir las li- 
neas 110, 120 y 130 por: 


110 NEXT S,M,H 


'Q Salidas y entradas 


Para terminar con el tema de los bucles 
FOR-TO-NEXT vamos a hacer algunas con- 
sideraciones finales. 

Podemos introducir en el interior de un 
bucle, anidado o no, una condición que 
suponga el abandono del mismo antes 
de que se haya ejecutado el número de 
veces que le corresponde según sus va- 
lores inicial y final y su incremento. 

El programa 5 es un ejemplo de esta 
posibilidad. El objetivo es calcular la 


REM XXXIX 
Z0 REM x SUMA  *x 
20 REM rrrrrrrere 


40 CLS 

50 INPUT "VALOR LIMITE "¿UL 
¿£D IF VUL<1 THEN GOTO SO 

70 CLS 

30 LET s=0 

90 FOR I=1 TO VL 

100 LET S=S+Ix*1 

110 IF S>=U4L THEN GOTO 130 
120 NEXT 1 

130 PRINT "VALOR LIMITE="¿VL 
140 PRINT 

150 PRINT "SUMA=";S 

PRINT 

PRINT "ULTIMO NUMERO=";1 


Hemos establecido como valor final del 
bucle el almacenado en VL, sin embar- 
go, este valor nunca se va a alcanzar, ya 
que en alguna de las ejecuciones del bu- 
cle se verificará la condición de la línea 
110 y se saldrá a la línea 130. 

En la figura 7 podemos ver la presenta- 
ción en pantalla tras una posible ejecu- 
ción. 


UALOR LIMITE= 5411 


SUMA= 35 


ULTIMO NUMERO= 
| Ok 


Presentación en pantalla del programa 5. 


Por otra parte, si bien es posible salir de 
un bucle en cualquier momento antes de 
que finalice, no está permitido entrar en 
él sin pasar primero por la instrucción 
FOR-TO correspondiente que señala el 
inicio. Si tratamos de hacerlo aparecerá 
un mensaje de error del tipo NEXT without 
FOR que indica que el ordenador ha en- 
contrado una instrucción NEXT sin haber 
pasado previamente por la instrucción 
FOR-TO correspondiente. 


Rutinas 


UANDO se trató de la 
estructura de los pro- 
gramas se dijo que 
estos se pueden divi- 
dir en módulos, y los 
módulos en segmen- 
tos. 

Pues bien, siguien- 
do esa línea, vamos a definir ahora las 
«rutinas» O «procedimientos» como divi- 
siones de los segmentos de código. Las 
rutinas están constituidas por conjuntos 
de instrucciones destinados a realizar ta- 
reas auxiliares que pueden «llamarse» 
(es decir, se les puede transferir el con- 
trol de ejecución) desde diferentes pun- 
tos de un programa. A su terminación, las 
rutinas devuelven el control de ejecu- 
ción a la instrucción siguiente a la que 
realizó la «llamada». 

Con este sistema se simplifican los pro- 
gramas, ya que las tareas que se repiten 
sólo tienen que programarse una vez, 
sustituyéndose el conjunto de instruccio- 
nes por una sola instrucción de llamada. 

El mecanismo que permite que cuando 
se termina una rutina se vuelva a la ins- 
trucción adecuada, es el siguiente: 

Cuando se ejecuta una instrucción de 
llamada, el 8088 carga en la pila de eje- 
cución (STACK) la dirección a la que 
debe volver, bifurcando seguidamente 
al punto de entrada de la rutina definido 
en la instrucción. Inversamente, cuando 
se ejecuta una instrucción de fin de ruti- 
na, el 8088 descarga de la pila la direc- 
ción que allí se encuentre y bifurca a esa 
dirección. 
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Esta forma de funcionar hace necesa- 
rio que las rutinas no alteren el estado de 
la pila, es decir, cuando terminan, las ru- 
tinas deben haber dejado la pila de eje- 
cución en la misma situación en que la 
encontraron al comenzar. Esto no quiere 
decir que no puedan usar la pila, sino 
que deben utilizar tantas instrucciones 
de carga (PUSH y PUSHF) como de descar- 
ga (POP y POPP). 

Aunque son tareas repetitivas, las ruti- 
nas admiten normalmente un cierto gra- 
do de variabilidad. Esto lo pueden con- 
seguir utilizando parámetros, que son da- 
tos que se definen expresamente en 
cada llamada. Los métodos más usuales 
de definición de parámetros a las rutinas 
(lo que se denomina «paso de paráme- 
tros») son los siguientes: 


— Copia de los parámetros en los re- 
gistros. 


— Carga de los parámetros en la pila 
mediante instrucciones PUSH, antes de 
realizar la llamada. 


— Copia de los parámetros en un área 
de memoria que puede ser fija o varia- 
ble. En caso de que dicha área sea va- 
riable, su dirección pueda darse por uno 
de los dos métodos anteriores. 


Existen dos tipos de rutinas, las de tipo 
NEAR y las de tipo FAR. Las primeras son 
las que van a ser llamadas siempre des- 
de el interior del segmento de código al 
que pertenecen. Las segundas pueden 
ser llamadas desde cualquier segmento 
del programa. Dicho tipo es una propie- 
dad asociada a los puntos de entrada (la 
etiqueta por la que se le llama) y de sa- 
lida (la instrucción de retorno), pero no 


tiene relación con el resto de las instruc- 
ciones de la rutina. 

Conviene aclarar que el conjunto de 
instrucciones que constituyen una rutina 
puede tener múltiples puntos de entrada 
y múltiples puntos de salida. Y debe cum- 
plirse siempre que la instrucción de ter- 
minación sea del mismo tipo (NEAR o FAR) 
que la etiqueta por la que la rutina es lla- 
mada. 


Los tipos de las rutinas se definen en las 
instrucciones PROC y los tipos de los pun- 
tos de entrada alternativos en las instruc- 
ciones LABEL. 


y Las instrucciones PROC 
/ y ENDP 


Estas dos instrucciones no son ejecuta- 
bles, es decir, no se traducen en códigos 
que deba ejecutar el 8088, sino que son 
seudo-operaciones directivas que sirven 
para acotar al ensamblador un bloque 
de instrucciones que constituye una ruti- 
na o procedimiento. 

El formato de estas sentencias es el si- 
guiente: 


nombre-rutina PROC tipo 


nombre-rutina ENDP 


nombre-rutina: Es el nombre que se le 
quiere asignar a la rutina. Dicho nombre 
debe coincidir exactamente en las ins- 
trucciones PROC y ENDP y es el que se uti- 
lizará en las llamadas. 


PROC y ENDP: Son los (seudo) códigos - 


de operación. PROC indica el punto de 
entrada y es abreviatura de «procedure». 
ENDP significa «end of procedure» y sirve 


simplemente para marcar el final del blo- 


que de instrucciones que constituyen la 
rutina. 

La instrucción ejecutable que devuel- 
ve el control de ejecución a la instruc- 
ción siguiente a la de llamada es la ins- 
trucción RET que veremos más adelante. 

tipo: Es un parámetro en el que se es- 
pecifica el tipo de la rutina y puede ser 
NEAR O FAR. 

NEAR significa «cerca» y se utiliza para 
las rutinas que van a ser llamadas siem- 
pre desde el mismo segmento de código 
al que pertenece la rutina. 


FAR significa «lejos» y se utiliza para las 
rutinas que alguna vez tengan que ser lla- 
madas desde un segmento de código di- 
ferente al de la rutina. Una rutina tipo FAR 
puede, por supuesto, ser llamada desde 
el mismo segmento al que pertenece. 


O La instrucción LABEL 


Esta es una instrucción no ejecutable, 
que sirve para definir al ensamblador un 
nombre al que se le asocia un determi- 
nado tipo. Se puede usar tanto en los 
segmentos de código como en los de 
datos. 

En los segmentos de código, los nom- 
bres así definidos pueden usarse en cual- 
quier instrucción de bifurcación o de lla- 
madas a rutina. Esta forma de definir eti- 
quetas se usa frecuentemente para defi- 
nir puntos de entrada alternativos en las 
rutinas, especialmente en las rutinas tipo 
FAR, ya que en las tipo NEAR se pueden 
usar etiquetas normales. 

Su formato es el siguiente: 


nombre LABEL tipo 


nombre: Es el nombre que se quiere de- 
finir. 

LABEL: Es el (seudo) código de opera- 
ción y significa «etiqueta». 

tipo: Es un parámetro en el que se es- 
pecifica el tipo que se quiere asociar al 
nombre definido. El tipo puede ser NEAR 
O FAR con los mismos significados que se 
han explicado en la instrucción PROC. 

Además, en los segmentos de datos, 
puede emplearse la instrucción LABEL 
para definir los tipos BYTE, WORD oO 
DWORD. En esos casos, el nombre defini- 
do puede usarse como una variable de 
datos de uno, dos o cuatro bytes respec- 
tivamente. 


MM instrucciones CALL y RET 


Son dos instrucciones ejecutables que 
sirven para comenzar y terminar la ejecu- 
ción de rutinas. 

Para ejecutar una rutina se emplea la 
instrucción CALL, que significa «llamada». 


10 MAQUINAS 8088 


Para indicar que la rutina ha terminado y 
que el control de ejecución debe volver 
a la instrucción siguiente a la que la lla- 
mó se emplea la instrucción RET, abrevia- 
tura de «return», que significa «retorno». 

Las instrucciones CALL y RET relaciona- 
das con las rutinas tipo NEAR se denomi- 
nan «intra-segmento» y sólo utilizan una 
palabra de la pila, que es el desplaza- 
miento de la instrucción a la que tienen 
que volver. 

Las instrucciones CALL y RET relaciona- 
das con las rutinas tipo FAR se denominan 
«inter-segmentos» y necesitan utilizar dos 
palabras de la pila, que son el registro de 
segmento y el desplazamiento de la ins- 
trucción a la que tienen que volver. 

El microprocesador debe distinguir las 
CALL y RET «intra-segmento» de las «inter- 
segmentos» y utiliza para ello códigos 
máquina diferentes. El programador, sin 
embargo, las escribe de la misma forma, 
y las distingue por el tipo asignado al 
nombre en las instrucciones PROC y LABEL. 

Los formatos de estas instrucciones son 
los siguientes: 


[etiquetai:r ] CALL objetivo 


[etiqueta2: J RET [descargal 


etiqueta1 y etiqueta2: Son nombres 
que se pueden utilizar opcionalmente 
para identificar a estas instrucciones. 

CALL y RET. Son los códigos de opera- 
ción. 

objetivo: Es el operando por el que se 
define a la instrucción CALL cuál es la ru- 
tina que se quiere ejecutar. Este operan- 
do puede ser: 


— La etiqueta de cualquier instrucción 
ejecutable del segmento. Esto provoca- 
rá una llamada «intra-segmento». 

— Un nombre de rutina definido en 
una instrucción PROC o un punto de en- 
trada definido en una instrucción LABEL. 
La llamada será «intra-segmento» o «in- 
ter-segmentos», dependiendo de que se 
haya definido como tipo NEAR oO FAR. 

— Una referencia explícita a una posi- 
ción de memoria (en cualquiera de las 
formas que se han explicado). En dicha 
posición se habrá cargado previamente 
la dirección de la rutina. 

Sila posición de memoria referenciada 
estaba definida como WORD, se ejecuta 
una llamada «intra-segmento»; si estaba 
definida como DWORD, se ejecuta una 
llamada «inter-segmentos» y si se quiere 
realizar una llamada de tipo diferente al 
que le corresponde se debe anteponer 
uno de lo prefijos «WORD PTR» Oo «DWORD 
PTR», según se desee forzar que la llama- 
da sea tipo «intra» o «inter-segmentos». 

— Un registro AX, BX, CX, DX, SI, Dl o BP 
en el cual se ha cargado previamente la 
dirección de la rutina. En este caso la lla- 
mada es siempre «intra-segmento». 

descarga: Es un operando inmediato 
opcional de la instrucción RET que indica 
cuántos bytes deben descargarse de la 
pila inmediatamente después de ejecu- 
tarse la instrucción RET. Este operando es 
muy útil cuando se pasan parámetros a 
la rutina por el procedimiento de colo- 
carlos en la pila antes de ejecutar la ins- 
trucción CALL. En ese caso la rutina debe 
terminar con la instrucción «RET n», donde 
n es un número igual al doble de las pa- 
labras que fueron colocadas en la pila. 


Programa: 
Operaciones 
con matrices 


IGUIENDO con los pro- 
gramas de matemáti- 
cas que hemos ido 
viendo en diferentes 
tomos, incluimos a 
continuación un pro- 
grama que nos per- 
mitirá trabajar con 
matrices sin tener que realizar nosotros 
mismos los cálculos. Este programa nos 
permite hacer las siguientes operacio- 
nes: 

— Sumar dos matrices. 

— Restar dos matrices. 

— Multiplicar dos matrices. 

— Hallar la transpuesta de una matriz. 

— Calcular la inversa de una matriz. 

— Encontrar el determinante de una 
matriz. 


MENU PRINCIPAL DE OPERACIONES 
Suma de matrices 
Resta de matrices 
Producto de matrices 


Inversa de una matriz 
determinante de una matriz 


1.- 
2.- 
3.- 
4,- Traspuesta de una matriz 
S.- 
b.- 


A ] Menú del programa. 
/ 


El programa ha sido realizado en un IBM 
pc. Por ello puede funcionar en cualquier 
tipo de PC compatible que disponga de 
GWBASIC. Para el resto de los ordenado- 
res las modificaciones son las siguientes: 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION +DE JUEGOS 


SPECTRUM: 


119 REM 

120 REM 

121 REM 

122 REM 

123 REM 

124 PRINT AT 0,0 

128 PRINT AT 2,0 

130 PRINT AT 4,0; 

132 PRINT AT 6,0 

134 PRINT AT 8,0; 

136 PRINT AT 10,0; 

138 PRINT AT 12,0; 

139 PRINT “TECLEE LA OPCION (0 PARA TERMINAR)” 
140 LET AS.= INKEYS 

148 IF AS = “0” THEN CLS: GOTO 9999 
250 PRINT AT 10,0; 

446 PRINT AT 2,0; 

452 PRINT ATI + 3, K + 3; 

463 PRINT AT 21,0; 

465 LET AS = INKEYS 


También hay que borrar el grupo de lí- 
neas que van desde la 302 a la 325, am- 
bas inclusive. 


COMMODORE: 


118 PRINT CHR$ (147) 

119 REM 

120 REM 

121 REM 

122 REM 

123 REM 

124 POKE 214,0: POKE 211,0 

126 PRINT 

128 PRINT 

130 PRINT 

132 PRINT 

134 PRINT 

¡10 PRINT 

138 PRINT 

139 PRINT “PULSE OPCION (0 PARA TERMINAR)” 
140 GET AS 

148 IF AS = “0” THEN PRINT CHR$ (147): END 
250 POKE 214,10: POKE 211,0 

445 PRINT CHRS (147) 

446 POKE 214,1: POKE 211,0 

452 POKE 214,1 + 3: POKE 211,K+ 3 
463 POKE 214,23: POKE 211,0 

465 GET AS 

467 PRINT CHRS (147) 


ml 
N 
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También hay que borrar los números de 
línea comprendidos entre el 302 y 325. 


AMSTRAD: 


Sólo hay que cambiar de orden los ar- 
gumentos de todas las sentencias LOCA- 
TE de forma que si nos aparece: 


tendremos que poner: 


Aparte de eso, también hay que reali- 
zar los siguientes cambios: 


Se recomienda ejecutar este programa 
en el MODE 2 de pantalla. 


MSX: 


Para usar el programa en el MSX sólo 
hay que cambiar de orden los argumen- 
tos de todas las sentencias LOCATE que 
aparezcan en el programa. Por ejemplo, 
si vemos que en la linea 132 pone: 


nosotros tendremos que poner: 


Por otro lado, como el programa ha 
sido realizado para 80 columnas, en to- 
das las líneas donde el segundo argu- 
mento (antes de darle la vuelta) sea ma- 
yor de 20, se recomienda dividir por dos 
y poner la parte entera. Así, la línea 130 
que pone: 


pasaría a ser: 


También hay que quitar las líneas que 
van desde la 119 a la 123, ambas inclu- 
sive, y desde la 302 a la 325, ambas in- 
clusive. 


ALE ELLIS 
JOCAR OPERACIONES CON MATRICES: AMOO 


AMOO SUMA, RESTA, PRODUCTO, INVERSA, TRANSPUESTA, DETERMINANTE —— AxoooodOoOoK 
IMSS SJ 


ES 


AMARA AUTOR : JUAN MANUEL GUTIERREZ LEITON AGOIOIOjOlOJOK 
ETS 


ARROJA RARO ROJO RO ORO ROO RO ROO NOR OOOO ROO OOOO OOOO OOOO OOOO OOOO OOOO ROH k 


JOOOIOIOIOIoOK (C.) EDICIONES SIGLO CULTURAL 1.987 AOOOIOIOIOIOIOIRIVIoaK 
AMOO OOOO OOOO OOOO OOOO aaa aaa aaa aaa ola kakok 


M(25,25) 
A(25,25) 
B(25,25) 
C(25,25) 
D(25) 


Fi=5 

F2=20 
Cc1=15 
C2=65 


GOSUB 303 
LOCATE 6,25 


PRINT " 


MENU PRINCIPAL DE OPERACIONES 


LOCATE 8,28 


PRINT 


"1.- Suma de matrices” 


LOCATE 10, 28 

PRINT "2.- Resta de matrices” 
LOCATE 12,28 

PRINT "3.- Producto de matrices" 
LOCATE 14,28 


133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 


PRINT "4.- Traspuesta de una matriz" 
LOCATE 16,28 

PRINT "5.- Inversa de una matriz" 
LOCATE 18,28 

PRINT "6.- Determinante de una matriz" 
LOCATE 22,17 

PRINT "Teclee la opcion deseada o (esc) para terminar" 
A$=INKEY$ 

IF A$="" THEN GOTO 140 

IF A$="1" THEN GOTO 150 

IF A$="2" THEN GOTO 167 

IF A$="3" THEN GOTO 184 

IF A$="4" THEN GOTO 201 

IF A$="5" THEN GOTO 211 

IF A$="6" THEN GOTO 239 

IF ASC(A$)=27 THEN CLS: END 

GOTO 140 

GOSUB 362 

LET NF=F1 

LET NC=C1 

GOSUB 378 

IF ER=1 THEN GOTO 150 

GOSUB 370 

LET NF=F2 

LET NC=C2 

GOSUB 378 

IF ER=1 THEN GOTO 155 

IF Fi<>F2 OR C1<>C2 THEN PRINT "no se pueden sumar matrices con distintas di 


mensiones ":GOSUB 459:GOTO 118 


161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
PY 
172 
173 
174 
175 
176 
LP, 


GOSUB 327 

GOSUB 339 

GOSUB 256 

GOSUB 441 

GOSUB 459 

GOTO 118 

GOSUB 362 

LET NF=F1 

LET NC=C1 

GOSUB 378 

IF ER=1 THEN GOTO 167 
GOSUB 370 

LET NF=F2 

LET NC=C2 

GOSUB 378 

IF ER=1 THEN GOTO 172 
IF Fi<>F2 OR C1<>C2 THEN PRINT "no se pueden restar matrices con diferentes 


dimensiones ":GOSUB 459:GOTO 118 


178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
118 
195 
196 
197 
198 


GOSUB 327 

GOSUB 339 

GOSUB 267 

GOSUB 441 

GOSUB 459 

GOTO 118 

GOSUB 362 

LET NF=F1 

LET NC=C1 

GOSUB 378 

IF ER=1 THEN GOTO 184 
GOSUB 370 

LET NF=F2 

LET NC=C2 

GOSUB 378 

IF ER=1 THEN GOTO 189 
IF C1i<>F2 THEN PRINT "no se pueden multiplicar las matrices”:GOSUB 459:GOTO 


GOSUB 327 
GOSUB 339 
GOSUB 278 
GOSUB 441 


E 
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199 GOSUB 459 

200 GOTO 118 

201 GOSUB 362 

202 LET NF=F1 

203 LET NC=C1 

204 GOSUB 378 

205 IF ER=1 THEN GOTO 201 

206 GOSUB 327 

207 GOSUB 292 

208 GOSUB 441 

209 GOSUB 459 

210 GOTO 118 

211 GOSUB 362 

212 LET NF=F1 

213 LET NC=C1 

214 GOSUB 378 

215 IF ER=1 THEN GOTO 211 

216 IF Fi<>C1 THEN PRINT "no se puede calcular la matriz inversa de una matriz q 
ue no sea cuadrada":GOSUB 459:GOTO 118 
217 LET DI=F1 

218 GOSUB 327 

219 GOSUB 351 

220 GOSUB 391 

221 IF DE=0 THEN PRINT "la matriz no tiene inversa ya que el determinante es igu 
al a cero":GOSUB 459:GOTO 118 

222 LET X=DE 

223 FOR F=1 TO DI 

224 FOR C=1 TO DI 


225 FOR I=1 TO DI 

226 FOR J=1 TO DI 

227 IF I=F AND J=C THEN LET M(1,J)=1:GOTO 230 
228 IF I=F OR J=C THEN LET M(I,J)=0:GOTO 230 
229 LET M(I,J)=A(I,J) 

230 NEXT J 

231 NEXT 1 

232 GOSUB 391 

233 LET C(C,F)=(1/X)*DE 

234 NEXT C 

235 NEXT F 


236 GOSUB 441 

237 GOSUB 459 

238 GOTO 118 

239 GOSUB 362 

240 LET NF=F1 

241 LET NC=C1 

242 GOSUB 378 

243 IF ER=1 THEN GOTO 239 

244 IF Fi<>Ci THEN PRINT "no se puede calcular el determinante de una matriz que 
no sea cuadrada":GOSUB 459:GOTO 118 

245 GOSUB 327 

246 LET DI=Fi 

247 GOSUB 351 

248 GOSUB 391 

249 CLS 

250 LOCATE 12,15 

251 PRINT "el valor del determinante="; 

252 PRINT DE 

253 GOSUB 459 

254 GOTO 118 

255 REM 

258 REM oRajRSS SEO SS SOjS SOJSE jOS ROSSO S SS” ololOK 
257 REM * subrutina para la suma de dos matrices *X 
258 REM AsaSaSSS SOSA lSO SEO ESOS SE OOOO lol loo KK 
259 REM 

260 FOR I=1 TO F1 

261 FOR J=1 TO C1 

262 LET C(1,J)=A(1,J)+B(1,J) 

263 NEXT J 

264 NEXT I 


265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
318 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 


RETURN 
REM 
REM dd SIS OSOS SOS lSS OSOS” loldlS Ojo falojok 
REM * subrutina para la resta de dos matrices *X 
REM AMS lS SOS SS lSS OSI” OSOS dOJOk 
REM 
FOR I=1 TO Fl 
FOR J=1 TO C1 
LET C(I,J)=A(1I,J)-B(1,J) 
NEXT J 
NEXT I 
RETURN 
REM 
REM sa IS OSOS SOS OOOO OOOO OOOO Kadk 
REM * subrutina para el producto de dos matrices *X 
INE 
REM 
FOR I=1 TO F1 
FOR J=1 TO C2 
LET C(I,J)=0 
FOR K=1 TO C1 
LET C(1,J)=C(I,J)+A(1,K)xB(K, J) 
NEXT K 
NEXT J 
NEXT I 
RETURN 
REM 
INES 
REM * subrutina para calcular la traspuesta de una matriz *X 
IAN ES 
REM 
FOR I=1 TO Fl 
FOR J=1 TO C1 
LET C(J,1)=A(I,J) 
NEXT J 
NEXT I 
RETURN 
REM 
REM AMOS OOOO lalalala aaa lalala lalalala aa alajalololaladakakkakok 
REM * subrutina para el dibujo de ventanas * 
IAN EI EEES 
REM 
LOCATE Fi1,C1 
PRINT CHR$(201); 
FOR I=C1+1 TO C2-1 
PRINT CHR$(205); 
NEXT I 
PRINT CHR$(187) 
FOR I=F1+1 TO F2-1 
LOCATE I,C1 
PRINT CHR$(186) 
LOCATE I,C2 
PRINT CHR$(186) 
NEXT I 
LOCATE F2,C1 
PRINT CHR$(200); 
FOR I=C1+1 TO C2-1 
PRINT CHR$(205); 
NEXT I 
PRINT CHR$(188) 
RETURN 
REM 
REM ASS daa aa alada lalalala lalala aaa lalola laa aiaiaiaiokK. 
REM * subrutina de lectura de la matriz a(i,j) * 
REM ASS aaa aaa aa aaa iaa aaa lalalala aiaiaiolok 
REM 
FOR I=1i TO Fi 
FOR J=1 TO C1 
FRINE ACES 3 Ud => 


pes] 
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334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 


INPUT A(I,J) 
NEXT J 

NEXT 1 

RETURN 

REM 

REM SSSSOS SS Oda Oda a lalalala lalalala loja lalalala lalola lalala kakok 
REM * subrutina de lectura de la matriz b(i,j) * 
REM aaa lSlE OOOO OOO lalalala lalala lala lalalalola lalala jalololok 
REM 


FOR I=1 TO F2 
FOR J=1 TO C2 
PRINT ¡Blois ds o» 
INPUT B(1,J) 
NEXT J 
NEXT I, 
RETURN 
REM 
REM sao lSlS ISS lSlS ISSSTE” Ella lTElOlO lolo KK 


REM * subrutina de copia de la matriz a(i,j) en m(i,j) * 
REM AMOO aaa aaa lalalala aa aaa lalalala lalala lalalala aaa jalalalalalalalalolalokk 


REM 
FOR I=1 TO F1 

FOR J=1 TO C1 

LET M(1,J)=A(I,J) 

NEXT J 
NEXT I 
RETURN 
REM 
REM dSSaS OO jajja ldlE Olalla jalalElE lalala jajaja lalolala lala ljalala lalalala jajajajajajajaja jojololololojojojok 
REM * subrutina de peticion de las dimensiones de una matriz * 
REM AsSOSS ISSO lSlO Sd lO” ” lO l”O Sl” lal la] lalala lalalala lalalala lalalala lalalala jolola jojojo lajok 
CLS 
INPUT "numero de filas de la matriz A ";Fl1 
INPUT "numero de colummas de la matriz A ";C1 
RETURN 
REM 
REM AsSSSalSO OSOS OSOS la lala ldlO lalalala lalalala lalalala lalalala lalalala lalola jalololojok 
REM * subrutina de peticion de dimensiones de b(i,j) * 


REM SMS OOOO OOOO OOO lalalala lalalala lalalala lalalala lalola lalalala la lololajololojajok 
CLS 

INPUT "numero de filas de la matriz B ";F2 

INPUT "numero de columnas de la matriz B ";C2 

RETURN 

REM 

REM ASS SS OSOS lO lalO Saja aloa lalalala lalala jalolalalololalolok 


REM * subrutina de errores en las dimensiones * 

REM aaa lO OSOS jSlO O SlEO lalalala jala lalalala lalalala lalolalalololalajok 

REM 

IF NF<0O OR NC<O THEN PRINT "la matriz no puede tener dimensiones menores que 


cero":GOTO 387 


383 


IF NF<>INT(NF) OR NC<>INT(NC) THEN PRINT "la matriz no puede tener dimension 


es que sean numeros decimales ":GOTO 387 


384 


IF NF=0 OR NC=0 THEN PRINT "la matriz no puede tener ninguna dimension que s 


ea igual a cero":GOTO 387 


385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 


LET ER=0 

GOTO 389 

LET ER=1 

GOSUB 459 

RETURN 

REM 

REM ad lSlSO SS lE OSOS” SOS” O Ola joo OJO K ak 
REM * subrutina para el calculo de los determinantes por el metodo * 
REM * de triangulacion, es decir, todos los elementos situados es- * 
REM * trictamente bajo la diagonal principal son convertidos a cero * 
REM SOS SlSlS?SS Sl SlO SOS] ] SS” S Saja” OOOO Ojala lolo lO aKkak 
REM 
LET T=-1 
LET: I=T 
LET J=T 


400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
- 446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 


LET K=T 
LET L=T 
IF M(I,J)=0 THEN GOTO 430 
LET D(T)=M(K, J) 
LET I=T 
LET D=M(K, 1) 
LET M(I,J)=M(I,J)/D 
IF J=DI THEN GOTO 410 
LET J=J+1 
GOTO 406 
LET I=I+1 
LET J=T 
LET RE=M(I, J) 
LET M(I,J)=M(I,J)-M(K, J)*RE 
IF J=DI THEN GOTO 417 
LET J=J+1 
GOTO 413 
IF I=DI THEN 419 
GOTO 410 
IF T=DI-1 THEN GOTO 422 
LET T=T+1 
GOTO 398 
LET T=DI 
LET D(T)=M(DI,DI) 
LET T=1 
LET DE=1 
FOR I=1 TO DI 
LET DE=DEXD(I) 
NEXT I 
GOTO 439 
LET I=I+1 
IF M(I,J)=0 THEN GOTO 436 
LET M(K,L)=M(K,L)+M(1,L) 
LET L=L+1 
IF L>DI THEN GOTO 403 
GOTO 432 
IF I=DI THEN GOTO 438 
GOTO 430 
LET DE=0 
RETURN 
REM 
INS 
REM * subrutina de impresion de la matriz c(i,j) * 
INS 
REM 
CLS 
LOCATE 2,15 
PRINT "el resultado es:" 
PRINT 
FOR I=1 TO NF 
LET K=1 
FOR J=1 TO NC 
LOCATE 1+3,K+3 
PRINT C(1,J) 
LET K=K+9 
NEXT J 
NEXT I 
RETURN 
REM 
REM daSSISS OOOO lSO SOS] SES” Olalla” lS Sala lala lajalololololok 
REM * subrutina de pulse una tecla para continuar * 
REM Aso S OSOS lolSO Sa lalalO Olalla lalalala lalalala lalalala lala jalalalolalalolokok 
REM 
LOCATE 23,25 
PRINT "pulse una tecla para continuar” 
AS$=INKEYS$ 
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466 IF A$="" THEN GOTO 465 
467 CLS 


468 RETURN 


III 3335 


PASIVA IAN ALIAS 


A 


AA e e LI III AA A e e 


IA A IIA e IIA e IIA e IIA 
HE TATTOO TOTES TOTO OR 


RTRRRAAIAIAAAAAAAAAAA 
rm 


el resultado es: 


pulse una tecla para continuar 


A El resultado de sumar dos matrices. 


Programa: Diseñador de 
sprites para MSX 


El programa que vamos a ver a conti- 
nuación nos permitirá definir nuestros 


propios SPRITES tanto en MSX como en el 
MSX2. El programa está capacitado para 
definir SPRITES de tamaño 8x 806 16 x 16. 
Mediante un menú al principio del pro- 
grama se elige el tipo de SPRITE. 


Por otro lado, a la hora de ver cómo 
aparece el SPRITE en la pantalla, también 
podemos elegir entre verlo normal o am- 
pliado. Para ello disponemos de otro 
menú para poder elegir. 


Una vez elegido el tipo de SPRITE que 
queremos definir, nos aparecerá una 
cuadrícula en la parte superior izquierda 
de la pantalla y será en ella donde ten- 
dremos que dibujar el SPRITE. 


Para mover el cursor que parpadea 
dentro de la cuadrícula, utilizaremos las 
teclas del cursor. Cuando queramos en- 
cender un punto que esté apagado, nos 
colocaremos encima de él y pulsaremos 
la barra espaciadora. Si queremos borrar 
un punto que ya estuviese encendido, 
nos pondremos sobre él y usaremos, tam- 
bién, la barra espaciadora. Si queremos 
borrar un punto que ya estuviese encen- 
dido, nos pondremos sobre él y pulsare- 
mos, también, la barra espaciadora. 


Pulsando las teclas que van desde el 
Fl a la F8, podemos realizar algunas co- 
sas con el contenido de la cuadrícula. El 
resumen de dichos comandos se en- 
cuentra permanentemente en las líneas 
inferiores de la pantalla. 


mes REM 
O REM Mind e para 


103 ) REM A * GENERADOR DE SPRITES * 
1030. REM a 
1040 REM 

1050 SCREEN. o 


1060 
1070 
1080 


KEY OFF 
CLEAR 600 


DEF FN I$(C$,P,B)=LEFT$(C$, TP-1)+CHR$(B)+RIGHT$(C$, 32-TP) 


1090 DEF FN C(A,B)=B+16x*INT(A/8)+1 

1100 DEF FN M(A$, A, B)=ASC(MID$(C$,FNC(A,B))) 

1110 REM 

1120 REM AdSSRSiOSdORSdO REO iOiaiajalElolojok 

1130 REM * OPCION DE SPRITE *x 

1140 REM Adosado alalojolok 

1150 REM 

1160 COLOR 11,0,0 

1170 CLS 

1180 :LOCATE ,,0 

1190 PRINT" GENERADOR DE SPRITES”" 

200. ¿PRINT". =eos=ssc=nono no mono" 

1210 PRINT 

1220 PRINT 

1230 PRINT"Escoja tipo de SPRITE:" 

1240 PRINT 

1250 PRINT TAB(4);"1 - 8x8 Pixels." 

1260 PRINT TAB(4);"2 - 16x16 Pixels." 

1270 GOSUB 2270 

1280 “IF AS="1" THEN TA=7:L=TA ELSE TA=31:L=15 

1290 PRINT 

1300 PRINT "Escoja el tama$o del SPRITE:" 

1310 PRINT 

1320 PRINT TAB(4);"1 - Normal." 

1330 PRINT TAB(4);"2 - Ampliado." 

1340 GOSUB 2270 

1350 PRINT 

1360 PRINT 

1370 PRINT " Utiliza las teclas del cursor paramoverte y 
paradibujar/borrar un punto. " 

1380 PRINT 

1390 PRINT " Y PULSA UNA TECLA” 

1400 A$=INKEY$ 

1410 IF A$="" THEN GOTO 1400 

1420 SCREEN 1,VAL(A$)+1 

1430 REM 

1440 REM AMSSSO SOS lSlOlOO SO jSlSlOlOKOKOKKok 

1450 REM * VARIABLE DONDE ESTA *x 

1460 REM * EL SPRITE xk 

1470 REM dad ISO SOS alOlSlSlOlolOlOlOjbJok 

1480 REM 

1490 FOR I=0 TO 31 

1500 C$=C$+CHR$(0) 

1510 NEXT I 


1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 


SPRITE$(0)=C$ 
PUT SPRITE O, (180,28),15 
SI$=CHR$(219) 
NO$=CHR$(196) 
CLS 
LOCATE 19,2 
PRINT"Sprite:" 
CX=0 
CY=0 
DIM C(31) 
GOSUB 1830 
FC=0 
ON STRIG GOSUB 2020 
STRIG(FC) ON 
ON KEY GOSUB 2720, 2350,3070, 2880, 3650, 3470, 3830, 4430 
FOR G=1 TO 8 
KEY(G) ON 
NEXT G 
GOSUB 4310 
REM 
REM SdSISSS OSOS ISSO OjSlOlOJOlOJOLOK 
REM * CONTROL DEL CURSOR x 


la barra de espacio 
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1740 REM dsRRSSS SOS SjO OSO lSOlOlojOlOjOJOK 

1750 REM 

1760 M=STICK(FC) 

1770 IF M=0 THEN GOTO 1760 

1780 CX=(CX-(M=3)+(M=7) AND L) 

1790 CY=(CY-(M=5)+(M=1) AND L) 

1800 GOSUB 2170 

1810 GOTO 1760 

1820 REM 

1830 REM adRSIORS SIS IS OS SlO SS lSOOlOjSlOJSjOJOJOK 
1840 REM * IMPRESION DE LA PARRILA * 
1850 REM aodSlO SIS OlO OOOO Ojo OlOlolOlojojOJOK 
1860 REM 

1870 LOCATE 0,0,0 

1880 FOR Y=0 TO TA 

1890 LOCATE 8xINT(Y/16),Y-16x*INT(Y/16) 
1900 T=128 

1910 T1=ASC(MID$(C$, Y+1)) 

1920 FOR X=0 TO 7 


1930 IF (Ti AND T)=T THEN PRINT SI$; ELSE PRINT NO$; 
1940 T=t72 

1950 NEXT X 

1960 NEXT Y 

1970 SPRITE$(0)=C$ 

1980 BEEP 

1990 GOSUB 2170 

2000 RETURN 

2010 REM 


2020 REM adaldlOlOlOlolololok 
2030 REM * TRIGGER * 
2040 REM AdMdodolOlOlOlOloKK 
2050 REM 
2060 TP=FNC(CX, CY) 
2070 KO=FNM(C$, CX, CY) 
2080 KO=(KO XOR 2” (7-(CX AND 7))) 
2090 C$=FNI$(C$, TP, KO) 
2100 GOSUB 2150 
2110 SPRITE$(0)=C$ 
2120 RETURN 
2130 REM 
+ 2140 REM AaaaalalO ISSO lO SOS OSOS OSlSlOlOlOIOJOJOK 
2150 REM * POSICIONADOR DEL CURSOR * 
2160 REM aalSlSSSS SNS lSlSlS SIE IESO lSSVOJOK 
2170 REM 
2180 FOR CC=1 TO 40 
2190 NEXT CC 
2200 LOCATE CX,CY,0O 
2210 PA=FNM(C$, CX, CY) 
2220 IF (PA AND 2*(7-(CX AND 7))) THEN PRINT SI$; ELSE PRINT NO$; 
2230 LOCATE CX,CY, 1 
2240 RETURN 
2250 REM 
2260 REM aaalalSlO ISSO O SSjSlSlSlVlOlOjoK 
2270 REM * ESPERA PULSACION x* 
2280 REM aaaalSlO SS SS SOS lSSlVlOlOlOJOK 
2290 REM 
2300 A$=INKEY$ 
2310 IF A$<>"1" AND A$<>"2" THEN 2300 
2320 RETURN 
2330 REM 
2340 REM daaSSSSSS SS SSSSlSPSlSlOlOJOJOK 
2350 REM * ROTACION IZQUIERDA *x 
2360 REM aalaalSlS ISSO O SSS SS SSlVJVOjOK 
2370 REM 
2380 GOSUB 2510 
2390 IF TA=31 THEN 2440 
2400 FOR I=0 TO 7 
2410 C(1)=(C(1)*x2 AND 254)+(C(I) AND 128)/128 
2420 NEXT I 


2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 


GOTO 2620 
FOR I=0 TO 15 
Ti=(C(1) AND 128)/128:T2=(C(I+16) AND 128)/128 
C(I)=(C(1I)*2 AND 254)+T2:C(1+16)=(C(1+16)*2 AND 254)+T1 
NEXT I 
GOTO 2620 


REM 

REM ao IS ISSO lalola lalalojojok 
REM * PASA LA MATRIZ C3 A * 
REM * LA MATRIZ C PARA EL * 
REM * CALCULO NUMERICO. * 
REM aaalSlO lalala lalalala lalala lolololOjoK 
REM 


FOR I=0 TO 31 
C(I)=ASC(MIDS$(C$, 1+1,1)) 
NEXT 1 
RETURN 
REM 
IAN ES 
REM * SALIDA DE LAS RUTINAS  * 
REM * DE ROTACIONES Y ESPEJOS * 
IAN ES 
REM 
C$="":FOR I=0 TO 31:C$=C$+CHR$(C(1)):NEXT 
SPRITE$(0)=C$ 
GOSUB 1830 
RETURN 
REM 
REM AMSOSO SOS lalola lola lolaolololak 
REM * ROTACION DERECHA * 
REM AMSOOSOSO lalola ala jolololakakok 
REM 
GOSUB 2510 
IF TA=31 THEN 2810 
FOR I=0 TO 7 
C(1)=C(1)/2+128x*(C(1) AND 1) 
NEXT 1 
GOTO 2620 
FOR I=0 TO 15 
T1=128x*(C(1) AND 1):T2=128x*(C(1+16) AND 1) 
C(1)=C(1)/2+T2:C(1+16)=C(1+16)/2+T1 
NEXT 1 
GOTO 2620 
REM 
REM AdMSSSSdOS Olalla lalolololololok 
REM * ESPEJO VERTICAL * 
IAN AS 
REM 
GOSUB 2510 
IF TA=31 THEN 2970 
FOR G=0 TO 3 
SWAP C(G),C(7-G) 
NEXT G 
GOTO 2620 
FOR G=0 TO 7 
SWAP C(G),C(15-G) 
SWAP C(G+16),C(31-G) 
NEXT G 
GOTO 2620 
REM 
REM AMOS aaa iaiolololajolajok 
REM * ESPEJO HORIZONTAL x* 
¿REM atada aaa aloja jololalolajalok 
REM 
GOSUB 2510 
IF TA=31 THEN 3180 
FOR G=0 TO 7 
T1=C(G) 
C(G)=0 
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3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 


FOR I=0 TO 3 
C(G)=C(G)-(2*1)*((27 (7-1) AND T1)<>0) 
C(G)=C(G)-(27(7-1))*((2”1I AND T1)<>0) 

NEXT 1 

NEXT G 
GOTO 2620 
FOR G=0 TO 15 

T1=C(G) 

T2=C(G+16) 

C(G)=0 

C(G+16)=0 

FOR I=0 TO 7 
C(G)=C(G)-(27*1)*((27*(7-I) AND T2)<>0) 
C(G+16)=C(G+16)-(27*(7-1))*((27*I AND T1)<>0) 

NEXT 1 

NEXT G 
GOTO 2620 
REM 
REM ddtokolololokk 
REM * LOAD x 
REM ddololdlolokok 
REM 
GOSUB 3370 
REM 
REM AMMSSISlSlSSS SO lSlSlOJOJOK 
REM * PREPARA INPUT x*x 
REM ASS S SOMOS lOlOlOJOJOK 
REM 
POKE 2HBF3F9, PEEK(SHF3FB) 
POKE 2RHF3F8, PEEK(S£HF3FA) 
LOCATE 23,29 
PRINT STRING$(232,127) 
RETURN 
REM 
REM AdSSddiolooK 
REM * SAVE *x 
REM dddlololololok 
REM 
GOSUB 3370 
GOSUB 4140 
GOSUB 4230 
PRINT" Y PULSE UNA TECLA"; 
A$=INKEY$ 
IF A$="" THEN 3540 
OPEN "cas: '"+N$ FOR OUTPUT AS $1 
FOR G=0 TO TA 
PRINT$1, ASC(MID$(C3,G+1,1)) 
NEXT 
CLOSE+1 
GOSUB 4310 
RETURN 
REM 
REM dolololololokK 
REM * LOAD * 
REM doolOlolOOK 
REM 
GOSUB 3370 
GOSUB 4140 
GOSUB 4230 
CS=: + 
OPEN "cas: "+N$ FOR INPUT AS +$1 
IF EOF(1) THEN 3770 
INPUT+$1,A 
C$=C$+CHR$(A) 
GOTO 3730 
CLOSE+1 
GOSUB 1830 
GOSUB 4310 
RETURN 


3810 REM 

3820 REM deRadRSSlSlS SIS lO lO lSISlSIOISISISOSSSTJOJAK 
3830 REM * SAVE COMO LINEA DE DATA x*x 
3840 REM eRRlRMSSIS'S SISI SSJSJSISIOISlOlOjOlOlolJOK 
3850 REM 

3860 GOSUB 3370 

3870 GOSUB 4140 


3880 INPUT "Numero de linea = "¡LI 
3890 GOSUB 4230 
3900 PRINT" Y PULSE UNA TECLA"; 


3910 A$=INKEYS$ 

3920 IF A$="" THEN GOTO 3910 

3930 OPEN "cas: "+N$ FOROUTPUT AS +41 
3940 A$=STR$(LI)+" DATA " 

3950 FOR G=1 TO TA 

3960 A$S=A$+"8H"+HEXS$(ASC(MID$(C$,G,1)))+"," 
3970 NEXT 

3980 A$=A3$+"82H"+HEX$(ASC(MID$(C$, TA+1,1))) 
3990 PRINTH1,AS 

4000 CLOSE+1 

4010 GOSUB 3360 

4020 LOCATE 0,17,0 

4030 PRINT "Esta es la linea grabada: " 
4040 PRINT 

4050 PRINT A$ 

4060 PRINT 

4070 PRINT " Y PULSA UNA TECLA” 

4080 A$=INKEYS$ 

4090 IF A$="" THEN GOTO 4080 

4100 GOSUB 4310 

4110 RETURN 

4120 REM 

4130 REM A*MSSSSOlSSISlSlOlOlSlSldlOlOKOK 

4140 REM * PREGUNTA NOMBRE * 

4150 REM Asa SOS jSlSlOEOOJOJOk 

4160 REM 

4170 LOCATE 0,17 

4180 INPUT "Nombre";N$ 

4190 IF N$="" THEN 4170 

4200 RETURN 

4210 REM 

4220 REM AMMSSSISISISIESISISISIS”lPSlOlOlOlOlO Ok 

4230 REM * MENSAJES DE CASSETTE * 

4240 REM ASS E SS ISR ISISISESSlSSlSlOIOlOJOOK 

4250 REM 

4260 LOCATE 0,22,0 

4270 PRINT" Ponga en marcha el cassette" 
4280 RETURN 

4290 REM 

4300 REM Asado la lOlolokokok 

4310 REM * PRINT MENU x* 

4320 REM AdsRMSISSOISIOlPlOIOKOK 

4330 REM 

4340 LOCATE 29,23,0 

4350 PRINT STRING$(232,127) 

4360 LOCATE 0,16 

4370 PRINT"Opciones:" 

4380 PRINT"F1-Rota der. ","F5-Load","F2-Rota izq. ","F6-Save norm. ", "F3-Espejo hor 
.F7-Save data. ","F4-Espejo ver.F8-Stop." 
4390 GOSUB 2150 

4400 RETURN 

4410 REM 

4420 REM doeadookK 

4430 REM * STOP * 

4440 REM Adol 

4450 REM 

4460 REM 

4470 SPRITE$(0)=CHR$(0) 

4480 CLS 
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4490 SCREEN O 
4500 PRINT ” 


4520 PRINT "vez." 
4530 GOTO 4530 


Una vez que tengamos definido el SPRI- 
TE, podemos guardarlo en cinta de case- 
te de dos maneras distintas. La primera 
de ellas nos almacena el SPRITE con for- 
ma de línea DATA, de manera que cuan- 
do necesitemos utilizar dicho SPRITE para 
un programa que nosotros estemos reali- 
zando, sólo tenemos que hacer un MER- 
GE entre el programa y la línea que con- 
tiene la definición del SPRITE. 

La otra manera de almacenarlo es una 
forma interna de manera que el progra- 


Si quieres definir otro SPRITE pulsa" 
4510 PRINT "las teclas CTRL y STOP y haz RUN otra" 


ma pueda más tarde volver a leer dicho 
SPRITE para que el usuario pueda modifi- 
carlo si lo desea. Cuando el usuario ne- 
cesite leer un SPRITE que tiene grabado 
en cinta, tendrá que usar la opción LOAD 
del menú general. 

Este programa, como ya habrá visto el 
lector al usuario, sólo nos permite definir 
un SPRITE cada vez. Esto, aunque pueda 
parecer una molestia, en el fondo no lo 
es tanto y hace que el programa sea más 
corto y fácil de entender. 


DE SALIDA 


OMO conclusión de 
los comentarios he- 
chos en el tomo ante- 
rior acerca de la dis- 
tribución de los datos 
en un documento de 
salida no preimpreso, 
| incluimos en la pági- 
na siguiente un esquema con la distribu- 
ción de las diferentes partes de que sue- 
le constar este tipo de documento. 

Además del formato general y de la 
presentación, tamaño, distribución, etc., 
de las informaciones en un documento 
cualquiera de salida, esimportante tener 
en Cuenta algunas consideraciones res- 
pecto de los datos que se incluyen en él 
y cómo han de ser elaborados: 


a) La información ha de ser muy se- 
leccionada. Es importante no incluir en el 
documento ni un solo dato más que los 
estriciamente necesarios. En ocasiones 
es útil, incluso, realizar algún tipo de 
comprobación posterior para verificar la 
validez y el uso que se hace de cada in- 
formación impresa (a veces, mediante 
«encuestas» posteriores; en otros casos, 
mediante algún «resguardo» que se in- 
cluya en el propio impreso —como se in- 
dica más adelante—, etc.). 

b) Además, en el diseño del docu- 
mento hay que tener en cuenta el orden 
en que se incluyen los datos. No sólo 
hay que presentarlos de un modo lógico 
para el usuario sino del modo que sea 
más adecuado para el proceso que 
debe generarlos. En efecto, en algún 
caso puede parecer más claro presentar 
los datos generales (de totales o de inte- 
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CONTENIDO DE UN DOCUMENTO 


gración de los datos parciales) antes 
que los de detalle, pero eso obliga a ir 
guardando todos los datos mientras se 
van procesando, hasta obtener los tota- 
les, para entonces confeccionar el docu- 
mento de salida con los datos generales 
al comienzo del impreso y los de desglo- 
se detrás. Otra situación conflictiva en 
este aspecto se presenta también cuan- 
do el documento a imprimir es pequeño 
o muy estrecho, con lo que se pueden in- 
cluir varios ejemplares a lo ancho del pa- 
pel: en este caso hay que estudiar una 
solución de compromiso entre el ahorro 
del espacio y tiempo de impresión y el in- 
cremento de ocupación de memoria y 
tiempo de proceso que se produce. Un 
caso típico es el de la impresión de eti- 
quetas (para envíos postales —mali- 
ling—), aunque en este caso la escasa 
información incluida en cada etiqueta 
aconseja siempre incluir varias etiquetas 
simultáneamente (escribiendo sobre 
toda una línea de impresión a todo el an- 
cho del papel). 


c) Se deben incluir rótulos o encabe- 
zamientos para todos los campos. Si el 
documento se edita sobre un papel 
preimpreso la etiqueta puede ser más 
descriptiva del contenido del campo e 
incluir códigos, notas, etc. (utilizando, in- 
cluso, tipos de letras menores). Si los en- 
cabezamientos de los campos han de 
ser escritos por la impresora hay que con- 
densarlos lo más posible, dentro de que 
mantengan la claridad necesaria del 
contenido. En este sentido, hay que tener 
especial cuidado con las abreviaturas 
que pueden resultar sumamente confu- 
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sas para quien no conozca en detalle el 
contenido del documento y los concep- 
tos que en él se incluyen. 

d) Describirse los diferentes concep- 
tos utilizados. Esta norma, que enlaza 
con lo que se ha comentado de las abre- 
viaturas, se refiere también a las unida- 
des empleadas en el documento. Es im- 
portante diseñar los impresos para que 
puedan ser utilizados por personas «no 
introducidas». Es humano que el analista 
considere obvio saber en qué unidades 
se mide cada cantidad impresa, porque 
él conoce a fondo la aplicación de que 
se trata, pero el profesional experimenta- 
do sabe cuánto «oscurece» un documen- 
to la falta de información sobre las unida- 
des, en algunos impresos complejos. 
Además es conveniente, en la medida 
de lo posible y según el espacio de que 


Nombre del documento 
Organismo o Departamento 
Fecha 

Códigos 

Número de página 

etc. 


Cabecera 


Cuerpo del documento 
(datos variables) 


Comentarios y notas 
Códigos e instrucciones 
Nombre del documento 
Fecha 

Número de página 

etc. 


pie de página 


se disponga, dar el significado de los di- 
ferentes códigos empleados en el docu- 
mento. 


e) Debe estudiarse cuidadosamente 
el número de copias a imprimir. Los valo- 
res máximos previstos por los fabricantes 
de impresoras varían entre tres y cinco 
copias, pero realmente utilizando los pa- 
peles autocopiativos o de calco usuales 
es difícil obtener más de 3 copias claras, 
legibles y cómodas de utilizar. En ocasio- 
nes también sucede que se imprimen co- 
pias iguales para diferentes destinos con 
lo que cada usuario sólo usa una parte 
pequeña de los datos impresos; es nece- 
sario estudiar la posibilidad de sustituir 
este «gran documento» con muchas co- 
pias por varios más sencillos impresos en 
original y copia nada más. 


Instrucciones 
en bucle 


A tercera forma fun- 
damental de las ins- 
trucciones de la pro- 
gramación «bien es- 
tructurada» es la ins- 
trucción en bucle, de 
la que también exis- 
ten varias formas po- 
sibles. La más importante es la siguiente: 


MIENTRAS condición HACER instrucción 


es decir, «repetir una y otra vez la ejecu- 
ción de la instrucción mientras se cumpla 
la condición. Pero, en cuanto ésta deje 
de cumplirse, pasar a la instrucción si- 
guiente». 

El organigrama de esta instrucción es 
el siguiente: 


NO 


Normalmente, la condición que apare- 
ce en una instrucción MIENTRAS puede 
ser cualquier expresión de resultado ló- 
gico, como las que vimos en el tomo 12, 
que pertenecían a dos grupos principa- 
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les: comparaciones entre expresiones de 
cualquier tipo o unión mediante funcio- 
nes lógicas de dos o más expresiones ló- 
gicas cualesquiera. 

En cambio, la instrucción ejecutable 
que aparece en la segunda parte de la 
instrucción de bucle puede ser de cual- 
quier clase: una asignación, una instruc- 
ción condicional, un bloque secuencial, 
una llamada a subrutina, una orden de 
entrada o de salida... Una instrucción 
que pueda efectuarse de modo inde- 
pendiente en otro lugar del programa 
puede ser siempre parte de una instruc- 
ción de bucle. Unicamente se recomien- 
da no utilizar dentro de las instrucciones 
de bucle las instrucciones de transferen- 
cia de control. 

En particular, la instrucción ejecutable 
de la instrucción de bucle puede ser otra 
instrucción de bucle. Esto significa que 
las instrucciones de bucle pueden enca- 
denarse para formar estructuras más 
complicadas. 

Hay que tener un cuidado especial al 
utilizar las instucciones de bucle, pues 
con ellas es posible conseguir que nues- 
tro programa entre en una situación de 
bucle cerrado permanente, de la que no 
pueda salir más que presionando la te- 
cla de interrupción de programa (si exis- 
te), la tecla RESET o su equivalente, o in- 
cluso apagando el ordenador. En efecto, 
podría suceder que la condición de la 
instrucción de bucle fuera siempre ver- 
dadera, y no resultara afectada por la 
instrucción ejecutable del interior del bu- 
cle. Si eso ocurre, la instrucción se ejecu- 
tará una vez y otra, continuamente, sin 
terminar jamás. Cuando sucede esto, sig- 
nifica que la instrucción de bucle está 
mal programada, pues siempre debe es- 
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tar construida de tal manera que sea po- 
sible que la instrucción interior ejecuta- 
ble cambie la situación y que la condi- 
ción de continuación deje de cumplirse. 


Veamos un ejemplo de instrucción de 
bucle mal programada: 


MIENTRAS X = O HACER Y = 1 


Si se llega a esta instrucción cuando X 
es distinto de cero, no pasa nada. La ins- 
trucción interior del bucle no se ejecuta 
ni una sola vez (pues la condición no se 
cumplía desde el principio) y la ejecu- 
ción continúa con la instrucción siguien- 
te. Sin embargo, si se llega a esta instruc- 
ción cuando el valor de X es igual a cero, 
la condición se cumple, por lo que la ins- 
irucción interior comienza a ejecutarse 
repetidamente hasta que la condición 
deje de cumplirse, lo que no ocurrirá ja- 
más, pues la instrucción interior no modi- 
fica el valor de X, que seguirá siendo 
cero indefinidamente. 


En cambio, la siguiente instrucción es- 
taria bien construida: 


MIENTRAS X>0 HACER X = X — 1 


En efecto, si se llega a ella con X cero 
o negativo, la instrucción no se ejecuta- 
rá, pues la condición no se cumple. En 
cambio, si se llega a ella con X positivo, 
la condición se cumple y la instrucción 
interior se ejecutará repetidamente. Pero 
como esta instrucción cambia el valor de 
X, reduciéndolo en una unidad cada vez 
que se ejecuta, más pronto o más tarde 
este valor llegará a ser cero o negativo, 
y en ese momento el bucle dejará de 
ejecutarse. 


Téngase en cuenta, sin embargo, que 
si el valor inicial que X es muy grande 
(por ejemplo, un millón) el bucle se eje- 
cutará tantas veces que nuestro progra- 
ma tardará muchísimo tiempo en termi- 
nar, lo que significa que no será muy útil. 


Veamos algunos ejemplos más de ins- 
trucciones de bucle: 


MIENTRAS condición-1 HACER 
MIENTRAS condición-2 HACER 
instrucción 


cuyo organigrama es: 


Tenemos aquí una instrucción de bucle 
cuya instrucción interior es otra instruc- 
ción de bucle. ¡Cuidado con ella! Puede 
meter nuestro programa en un bucle 
cerrado permanente, que no tenga sali- 
da, aun cuando la instrucción interior no 
llegue a ejecutarse jamás. Obsérvese el 
organigrama. En un momento determina- 
do, puede ser que no se cumpla la con- 
dición-2, pero sí se cumpla la condi- 
ción-1. En tal caso, el primer bucle segui- 
rá ejecutándose indefinidamente, mien- 
tras el bucle más interno no hará nunca 
nada, con lo que la situación de las con- 
diciones no se modificará y el programa 
no podrá continuar jamás con la instruc- 
ción siguiente. Si existe este peligro, es 
mejor programar el bucle de la siguiente 
manera: 


MIENTRAS condición-1 y condición-2 
HACER instrucción 


cuyo organigrama es: 


Obsérvese que, puesta de esta forma, 
la instrucción no puede entrar en bucle 
cerrado permanente, a menos que am- 
bas condiciones sean siempre verdade- 
ras. 


Veamos ahora cómo se programan las 
instrucciones de bucle de este tipo en los 
tres lenguajes que estamos utilizando 
como elemento de comparación: BASIC, 
PASCAL Y APL. 


No todos los intérpretes de BASIC acep- 
tan esta forma de la instrucción de bucle, 
pero hay muchos que sí la reconocen, 
como el BASIC de Microsoft o el que utfili- 
za el IBMPC. En estos casos, la instrucción 


DIM A(3) 
20 INPUT A(1), A(2), A(3) 
30 LET X=0 

40 WHILE X=0 

SO LET X=1 


70 IF A(2)>A(3) THEN LET Y=A(3): 
80 WEND 


PRINT A(1)3 A(2); A(3) 


Este programa lee tres valores numéri- - 
cos cualesquiera sobre los elementos de 
la serie A y los ordena de menor a ma- 
yor, utilizando una instrucción de bucle. 
Veamos cuál es su organigrama: 


(2) THEN LET Y=A(2): LET A(2)=A(1): LET A(1)=Y: LET X=0 
e LET A(3)=A(2): LET A(2)=Y: LET X=0 


se descompone en la siguiente secuen- 
cia: 

1. Una instrucción de la forma «WHILE 
condición», donde WHILE es la palabra in- 
glesa que significa MIENTRAS. 

2. Una o varias instrucciones ejecuta- 
bles, que corresponden a la instrucción 
interior del bucle descrita más arriba. 

3. La instrucción WEND, que señala el 
fin de la instrucción del bucle. 

Cada una de las instrucciones indica- 
das puede tener su propio número de ins- 
trucción. 

Veamos un ejempllo de un programa 
BASIC que utiliza una instrucción de bu- 
cle: 


Veamos cómo funciona la instrucción 
de bucle, que aqui aparece dividida en 
cinco, que llevan los numeros 40 a 80: 


Inicialmente, la variable X tiene el va- 
lor cero (instrucción 30), por lo que la ins- 
trucción de bucle se ejecutará al menos 
una vez. Lo primero que se hace en el in- 
terior del bucle es asignarle a X el valor 
1. De esta manera, si las dos instruccio- 
nes condicionales que siguen (con los 
números 60 y 70) no hicieran nada, la 
condición del bucle dejaría de cumplir- 
se, por lo que se pondría punto final al 
programa. 


La primera instrucción condicional 
compara los elementos 1 y 2 de la serie 
A. Si el primero es mayor, intercambia sus 
valores (y señala, en la variable X, que el 
bucle debe ejecutarse al menos una vez 
más). En caso contrario, no hace nada. 
La segunda instrucción condicional hace 
exactamente lo mismo con los elemen- 
tos 2 y 3 de la serie A. 

Veamos un ejemplo. Supongamos que 


le proporcionamos al programa la serie 
de valores 3, 2, 1. La instrucción 20 los 
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leerá del teclado y los asignará a la va- 
riable A en ese orden. Por tanto, la serie 
A valdrá en ese momento 3, 2, 1. 

La instrucción 30 asigna a X el valor 0. 
La instrucción 40 comprueba que X tiene 
el valor cero. Como esto es cierto, co- 
mienza la ejecución del interior del bu- 
cle. En primer lugar, la instrucción 50 
asigna a X el valor 1. Después, la instruc- 
ción 60 compara A(1) con A(2) (es de- 
cir, 3 con 2). Como 3 es mayor que 2, la 
instrucción condicional debe ejecutarse. 
Por tanto, intercambiamos los valores de 
A(l) y A(2) (obsérvese que lo hacemos 
a través de una variable auxiliar y, que 
sólo sirve para esto) y asignamos a X el 
valor cero. Ahora la serie A ha quedado 
en la forma 2, 3, 1. 

La instrucción 70 compara ahora A (2) 
con A(3) (es decir, 3 con 1). Como 3 es 
mayor que 1, la instrucción condicional 
debe ejecutarse. Por tanto, intercambia- 
mos igualmente los valores de A(2) y A(3) 
y asignamos de nuevo a X el valor cero. 
Ahora la serie A ha quedado en la forma 
2.1.3 

La instrucción 80 señala el final del bu- 
cle. Por tanto, debemos regresar a la ins- 
trucción 40 y comprobar de nuevo si se 
cumple la condición. Como X es igual a 
cero, es preciso ejecutar el bucle por se- 
gunda vez. Por tanto, pasamos a la ins- 
trucción 50, que asigna a X el valor 1. 
Después, la instrucción 60 compara A(1) 
con A(2) (es decir, 2 con 1). Como 2 es 
mayor que 1, la instrucción condicional 
debe ejecutarse. Por tanto, intercambia- 
mos los valores de A(1) y A(2) y asigna- 
mos a X el valor cero. Ahora la serie A ha 
quedado en la forma 1, 2, 3. 

La instrucción 70 compara ahora A(2) 
con A(3) (es decir, 2 con 3). Como 2 no 
es mayor que 3, la instrucción condicio- 
nal no debe ejecutarse. Por tanto, pasa- 
mos a la instrucción 80, que nos envía de 
nuevo al principio del bucle (instrucción 


40). De nuevo llegamos aquí con X igual 
a cero, por lo que el bucle debe efec- 
tuarse por tercera vez. La instrucción 50 
asigna a X el valor 1. Después, la instruc- 
ción 60 compara A(1) con A(2) (es de- 
cir, 1 con 2). Como 1 no es mayor que 2, 
la instrucción condicional no debe eje- 
cutarse. Por tanto, pasamos a la instruc- 
ción 70, que compara A(2) con A(3) (es 
decir, 2 con 3). Como 2 no es mayor que 
3, la instrucción condicional no debe 
ejecutarse. Por tanto, pasamos a la ins- 
trucción 80, que nos envía de nuevo al 
principio del bucle (instrucción 40). Pero 
ahora llegamos aquí con X igual a uno, 
por lo que la condición del bucle no se 
cumple y su interior no debe ejecutarse 
más veces. Pasamos, por tanto, a la ins- 
trucción 90, que imprime los valores de 
la serie A en la pantalla, para que los 
veamos ordenados. 

Veamos el aspecto de varios casos de 
la ejecución de este programa: 


Ti 2 
uu E 
ss 


o 
NN 
s 
tr 


-2 


CxX_- 
mz 


HO ADO 34 


Obsérvese que, cualquiera que sea el 
orden en que demos los elementos de A, 
el programa los ordena correctamente, 
de modo que siempre terminamos con 
los valores 1, 2, 3. 


LOGO 


IO Más dibujos 
usando 


variables 


L utilizar variables tie- 
ne muchas ventajas. 
Entre ellas, la más im- 
portante es que, en 
general, con un solo 
procedimiento pode- 
mos hacer varias co- 
sas sin necesidad de 
entrar en el editor, sino simplemente 


+ REPITE 2 [AV ¿ALTURA GD 9% 


> OT 


Si ahora escribimos: 


7 RECTANSULO 36 56 


Y RECTANGULO 26 4 


nos aparecería: 


? PARA RECTANGULO ¿BASE ALTURA 


cambiando el valor que la tortuga ha de 
guardar en el cajón correspondiente a la 
variable. : 

Hasta ahora hemos usado un sola va- 
riable dentro de un procedimiento. Pero 
esto no tiene por qué ser así, es decir, po- 
demos añadir tantos cajones como ne- 
cesitemos. 

Supongamos que queremos dibujar 
rectángulos de tamaño variable. Como 
sabemos, un rectángulo tiene los lados 
iguales dos a dos. Por ello, hemos de te- 
ner dos variables. El procedimiento que- 
daría así: 


AV ¿BASE GD 96] 


a LOGOS 


Si queremos que los rectángulos sean 
apaisados, no tenemos que cambiar 
nada en el procedimiento, porque he- 
mos usado variables. Nos basta con po- 
ner en el cajón “BASE un valor más gran- 
de que en el cajón “ALTURA. Por ejemplo, 
así: 


Por último, si lo que hacemos es meter 
el mismo valor en ambos cajones, signifi- 
ca que todos los lados del rectángulo 
son iguales, y por tanto, podemos tam- 
bién dibujar un cuadrado. Por ejemplo, 
con 


Y RECTANGULO 33 33 


Otro procedimiento 


== para hacer varias cosas 


Para lograr con un solo procedimiento 
que la tortuga dibuje circulos de distinto 
tamaño, nos basta con utilizar una varia- 
ble: 


? FARÁA CIRCULO ¿TAMAÑO 


¿TAMANO GD 151 


> REPITE 36 CAV 


> FIN 


Si ahora queremos dibujar semicírculos, 
tendriamos el siguiente procedimiento: 


? PARA SEMICIRCULO :TAMARO 
> REPITE 18€ [AV ¿TAMAÑO GD 1] 


> FIM 


Y si también queremos obtener cuartos 
de circunferencia, escribiriamos: 


¿TAMAÑO 


? FARA CUARTOCIRCULO 
> REPITE 9 [AV ¿TAMAÑO GD 1%1 


> FIN 


Como podemos ver, estos tres procedi- 
mientos se parecen mucho. Lo único que 
les diferencia es el número de veces que 
se ejecuta la lista de órdenes del coman- 
do REPITE. Por tanto, podemos utilizar una 
variable donde guardemos este número 
y de esta forma, usar un solo procedi- 
miento para dibujar círculos completos, 
semicírculos y cuartos y arcos de circun- 
ferencia. Para ello, pondríamos: 


? PARA CUALQUIERARCO ¿TAMAÑO :VECES 
+ REPITE ¿VECES [AV :TAMAÑO GD 161 


ALEEN 


Vamos a hacer algo con él. Por ejem- 
plo, si ahora escribimos: 


7 SL Gl 980 AV 109 BL 
? RE 2% GD 96 


? REPITE 4 [CUALQUIERARCO 2 18 


FONRUMEO 9% AV 26 FONRUMEO M4] 


Si nos definimos el siguiente procedi- 
miento: 


? FARAÁA OTROARCO ¿TAMAÑO ¿VECES 
> REPITE :*VECES LAV ¿TAMAÑO GI 10] 


¡FIN 


? SL Gl 96 AV 106 BL GD 94 
? REPITE S CCUALQUIERARCO 2 18 
oOTrRIA=coO e 281 


+ 0 


Ahora podemos hacer varias vertica- 


Hay que escribir: 


? SL PONPOS [-82 761 BL GD 96 
? REPITE 4 CCUALOQUIERARCO 2 18 
OTROARCO 2 181] 


? SL PONPOS [6 761 BL 


a 


2 REPITE 4 ECUALQUIERARCO 2 18 
OTEOARCO 2 183 
? SL PONPOS (86 761 BL. 


? REPITE 4 [CUALQUIERARCO: e 18 


OTROARCO 2 181 


PASCAL 


[IM] Longitud de 
un texto 
N el último programa 


que hicimos, Analiza- 
Varios, utilizabamos 


var l: integer; 
begin 
l:= MaxLetras; 


Longitud:= I 
end; 


En efecto, esta manera es, en principio 
mucho mejor, pero tiene un inconvenien- 
te: ¿qué pasaría si todos los caracteres 
fueran espacios en blanco?: el índice | 
ia disminuyendo el valor hasta llegar a 
1, tras lo cual se comprobaría el valor de 
1(1) y se decrementaría | nuevamente al 
ser aquél un espacio en blanco, por lo 
que acto seguido se intentaría mirar el 
valor de T(0), que no existe. 


function Longitud (Tz Texto_t): Indice_t; 


(X Devuelve la longitud real del texto T t) 


(kx Se explora el texto de atrás para adelante *) 
(X hasta encontrar el primer carácter válido: *) 


while (T[1] = ”? ”) or (T[1I = chr(0)) do l:= 1-1; 


la función Longitud para determinar el ta- 


maño real de un texto. 


Probablemente el lector habrá pensa- 
do que seria mucho más sencillo escribir- 
lo así: 


Dependiendo del compilador y de las 
opciones de compilación utilizadas 
(véase nota más adelante), en casos así 
puede que el programa se detenga dan- 
do un mensaje de error o que simplemen- 
te se ponga a buscar en zonas de memo- 
ria no correspondientes a T, con lo que 
sería probable que se detuviera antes o 
después del proceso con | teniendo un 
valor negativo y, por tanto, erróneo. Si es 


este último nuestro caso, podría ser ad- 
misible en alguna ocasión, aunque sería 
sin duda una «chapuza». 

Las posibles condiciones de salida del 
bucle son dos, el haber explorado ya 
todo el texto y el hallazgo de un carác- 
ter válido; sin embargo, la segunda con- 
dición sólo debe comprobarse tras verifi- 
car que no se cumple la primera, y de ahí 
la dificultad en hacer el proceso con un 
bucle tan simple (estudie el lector la po- 
sibilidad de arreglar el problema modifi- 
cando la condición del bucle). 


NOTAS 


— En algunos lenguajes como el Mo- 
dula-2, si es posible escribir 


while (1 > 0) and ((T(I) =* ') or 
(T(1) = chr (0))) do ... 


En una operación lógica AND sólo se 
evalúa la segunda parte si la primera ha 
resultado ser TRUE, pues si ha sido FALSE 
ya se sabe que ése será el resultado fi- 
nal y no tiene sentido seguir adelante; 
análogamente, en las operaciones OR 
sólo se evalúa la segunda parte si la pri- 
mera es FALSE, pues en caso contrario el 
resultado ya está decidido. Esto resulta 
ventajoso no sólo por simplificar la explo- 
ración de tablas, sino también por el 
ahorro de tiempo de cálculo que puede 
obtenerse. 

7 Lo de las «opciones de compila- 
ción» consiste en que, normalmente, al 
compilar es posible escoger una serie de 
opciones como, por ejemplo, que cada 
vez que se haga referencia a un elemen- 
to de una tabla se verifique o no que el 
índice es lícito; otra opción típica es la 
de que se verifique automáticamente o 
no si hay sitio suficiente en memoria para 


program Calculadora; 


var 
Formato: (Exponencial, EspacioFijo, ComaFija); 
Espacios, 
Decimales: integer; 
Opcion: char; 


las variables locales cada vez que se lla- 
me a un subprograma. 


IO Elecciones a la carta 


Prácticamente cualquier persona con 
un mínimo de experiencia utilizando or- 
denadores se habrá encontrado en más 
de una ocasión con programas que em- 
plean los llamados «menus» de opciones. 
La estructura de un programa semejante 
podría ser: 


Repetir 
Borrar la pantalla. 
Presentar menú. 
Preguntar. 
Leer la opción deseada. 
Según que la opción sea... 
4, hacer esto. 
2, hacer lo otro. 
3, hacer aquello. 


... hasta que la opción sea acabar. 


A su vez, los subprogramas «hacer 
«esto», «hacer lo otro», etc., podrían utili- 
zar también el método del menú, en 
cuyo caso tendrían una estructura simi- 
lar. A modo de ejemplo, vamos a hacer 
un programa de tipo «calculadora» que, 
presentando un menú de opciones en 
pantalla, nos permita hacer diferentes 
operaciones con números. Para tener 
mayor libertad y precisión, los números 
empleados serán reales; como los núme- 
ros reales se pueden representar de mu- 
chas maneras distintas, incluiremos la po- 
sibilidad de seleccionar cómo mostrar- 
los. 

Siguiendo la estructura antes mencio- 
nada, el programa principal podría ser 
algo así: 


CEREAL AAA NENA NAAA NAAA AAA AAA AAA AAA AAA AAA AA AAA AA AAA AAA) 
(XXXXXX Aqui falta parte del programa, que se explica aparte XXX) 
CEREMARNANENE A AARE NARA ENANA NE NARNIA NAAA RANA NAAA AA NAAA AAA AAA) 
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function PideNumero: real; 
var R:z real; 

begin 
write (*Número: ?); 
readlin (R); 
PideNumero:= R 


end; 
O A O kx) 
(x Programa principal. x) 
AAA AA e o e e e e e e e x) 
begin 


Formato:= Exponencial; 


repeat 


(xXx Formato inicial X*) 


ClrScr; (kXk o PAGE, o lo necesario para borrar la pantalla *) 


writeln (1 - Sumar dos números.?”); 


writeln (?2 
writeln (*3 


writeln (*5 


Restar dos números.?”); 
Multiplicar dos números.”); 


Calcular raíz cuadrada.?”); 


witeln (*4 -— Dividir dos números.”); 


writeln (*6 
witeln; 
writeln (*0 — Acabar.”); 
writeln; 

write ("Escoja opción: —?); 
readin (Opcion); 

writeln; 


case Opcion of 


Variar la forma de mostrar números.”); 


?1”7: Muestra (PideNumero + PideNumero) ; 


?2”*: Muestra (PideNumero - PideNumero) '; 


?3*: Muestra (PideNumero X* PideNumero) '; 


?4”: Muestra (PideNumero / PideNumero) '; 


?*5*: Muestra (sgrt (abs (PideNumero))); 


?6*: CambiarAspecto; 


20”: (k no hacer mada, instrucción "nula" *k) 


else write (”Opción mo válida.”) 


end; (* Fin de CASE kx) 


if Opcion <> ”*0” then 
begin 
writeln; 
writeln (”Pulse Intro.”); 


(* Aquí se para hasta pulsar Intro: *) 


readln 
end 


until Opcion = *0” 
Sl end. 


N 


Se ha utilizado la función PideNumero, 
que devuelve el número tecleado, direc- 
tamente al hacer las operaciones, y és- 
tas a su vez se han escrito en las propias 
instrucciones de llamada a Muestra, por 
lo que no ha resultado necesario utilizar 
ninguna variable de tipo Real en el pro- 
grama principal. 

Faltan por definir los procedimientos 
Muestra y CambiarAspecto. El primero se 


emplea para enseñar el resultado de la 
operación de acuerdo con el formato 
deseado, que viene determinado por el 
valor de la variable escalar Formato. Por 
otra parte, CambiarAspecto debe dar la 
posibilidad de cambiar el formato y de 
escoger los parámetros de presentación 
necesarios en algunos casos; este sub- 
programa será también del tipo menú: 


procedure CambiarAspecto; 
var Forma: char; 


procedure LeerEspacios; 

begin 
witeln; 
write (*"Espacios a ocupar por número: 
readln (Espacios) 


ClrScr3 
writeln 
witeln 
writeln 
writeln; 
write (*Escoja formato: 
readln (Forma); 

case Forma of 


(?1 — Notación exponencial.?”); 
(?2 - Coma flotante.”); 
(?3 -— Coma fija.”);3 


ENE 


?1*2 Formato:= Exponencial; 
2”: begin 

Formato:= EspacioFijo; 
LeerEspacios 

end; 


begin 

Formato:= ComaFija; 
LeerEspacios; 

witeln; 

write ("Número de decimales: 
readln (Decimales) 

end 


else 
begin 
writeln; 
writeln (*Formato incorrecto.” ) 
end 


end (*X Fim de CASE x*) 


procedure Muestra (R: real); 
begin 
write (”Resultado = ?); 
case Formato of 
Exponencial : writeln 
EspacioFijo : writeln 
ComaFi ja ¿ writeln 
end 
end; 


(RR); 
(R : Espacios); 
(R : Espacios : 


JN 


NS 


Decimales) 


Lo único que tiene que hacer el lector 
para utilizar el programa es integrar estos 
dos procedimientos en el sitio correspon- 
diente de la parte principal, modificar en 


su caso las instrucciones de borrado de 
pantalla y realizar el proceso necesario 
para su puesta en marcha. 


Sentencias 
condicionales 
simples 


N la gran mayoría de 
los programas deben 
tomarse decisiones 
en función de deter- 
minados datos. 

Los programas tie- 
nen la capacidad de 
formular «preguntas» 
al ordenador, o lo que es lo mismo: se 
realiza una acción dependiendo si la res- 
puesta del ordenador a una pregunta es 
verdadera o falsa. 


IF condición 
SENTENCIA 
ELSE 
SENTENCIA 


Si la condición que se presenta es cier- 
ta, se ejecuta la sentencia o sentencias 
que siguen al IF, hasta encontrar un ELSE 
o un punto. Si la condición es falsa y exis- 
te la cláusula ELSE, se ejecutan las instruc- 


IDENTIFICATION DIVISION. 


PROGRAM=-I1D. EJ-IF, 


ENVIRONMENT DIVISION. 


DATA DIVISION. 


WORKING-STORAGE SECTICN. 


REG-EMPLEADO. 
OS CODIGC 
OS SUELDO 
OS ESTADO 
OS NUM-HIJOS 


GRaTIF 
1 TOTAL 


OTROS LENGUAJES 


ciones que le siguen hasta el primer pun- 
to. 

Las condiciones tienen el siguiente for- 
mato: 


literal-1 | | = | | literal-2 | 
HF NOT > ) 
campo-1] | | < 


| campo-2 | 


Las comparaciones que se pueden 
realizar son: 


= Igual NOT = Distinto 
> Mayor NOT > Menor o igual 
< Menor NOT < Mayor o igual 


Como aplicación de esta sentencia, se 
debe realizar un programa que pida el 
código de empleado, el sueldo, su esta- 
do civil y el número de hijos. Si el emplea- 
do está casado tiene un suplemento en 
el sueldo de 5.000 pesetas y una gratifi- 
cación del 5 por 100, mientras que si es 
soltero, la gratificación es del 2 por 100. 
Si el número de hijos es mayor o igual a 
tres, se da una prima de 500 pesetas por 
cada hijo. 


PROCEDURE 


DIVISION. 


INICIO. 


ACCEFT CODIGO. 


ACCEFT SUELDO. 


ACCEPT ESTADO. 


ELSE 


COMPUTE TOTAL 


FIN-PROGRAMA. 
STOP RUN. 


En las instrucciones condicionales tie- 
ne mucha importancia la colocación del 
punto, puesto que limita la finalización 
del IF. Por ejemplo, si detrás de la senten- 
cia MOVE 2 TO GRATIF, no se colocase un 
punto, la instrucción que le sigue (COM- 
PUTE), sólo se ejecutaría si no se cumplie- 
se la condición, cambiando toda la lógi- 
ca del programa. | 


¡O Operadores lógicos 


Las condiciones que se han visto hasta 
ahora son condicionales simples. Varias 
condiciones simples pueden unirse con 
operadores lógicos, formando condicio- 
nes compuestas. Los operadores que 
permiten realizar esta unión se muestran 
por orden de prioridad. 


— NOT: No. 
— AND: Y. 
— OR: O. 


El funcionamiento se muestra en la si- 
guiente figura. 


DISPLAY *CODIGO”. 


DISPLAY ” SUELDO”. 


DISPLAY *ESTADO CIVIL?. 


DISPLAY ”>NUMERO DE HIJOS”. 

ACCEPT NUM-HIJOS. 

IF ESTADO = *C” 
ADD 35000 TO 
MOVE S TO 


SUELDO 
GRATIF 
MOVE 2 TO GRATIF. 

SUELDO + SUELDO * GRATIF / 10. 
IF NUM-HIJOS NOT < 
- COMPUTE TOTAL 
DISPLAY CODIGO ”DEBE COBRAR * 


pi.” 


TOTAL + 500 * NUM-HIJOS. 
TOTAL. 


Cl1ANDC2  C1ORC2 


Cl - 02 NOTE] 


EL NOT aplicado a una condición cam- 
bia su significado. Para que una condi- 
ción formada por dos condiciones uni- 
das por un AND sea cierta han de serlo 
las dos condicionales simples. Por el con- 
trario, si están unidas por un OR basta con 
que sea cierta una de las dos. 

Determinada tienda necesita un pro- 
grama para calcular el monto de sus ven- 
tas. Para ello el vendedor tecleará el nú- 
mero de artículos vendidos, el precio uni- 
tario de los mismos y si se trata de un 
cliente fijo. 

Si el valor de la compra es superior a 
10.000 pesetas o se han vendido más de 
cien artículos, se le aplica al comprador 
un descuento del 10 por 100. Si el cliente 
es habitual y su compra es mayor o igual 
a 1.000 pesetas, se le hace un descuen- 
to del 5 por 100. 

El programa se muestra en la figura si- 
guiente. 


so OTROS LENGUAJES 


IDENTIFICATION DIVISION. 
PROGRAM-ID. EJ-CONDICIONALES. 


ENVIRONMENT DIVISION. 


DATA DIVISION. 


WORK ING-STORAGE SECTION. 


a 01 DATOS-TECLEADOS. 


OS NUM-ARTICULO PIC 92(3D. 
OS PRECIO PIC 9(4). 


05 ASIDUO PIC X. * 


01 TOTAL SIC CFI: 


PROCEDURE DIVISION. 


INICIO. 

DISPLAY *NUMEFO DE ARTICULOS”. 

ACCEFT NUM-ARTICULO. 

DISPLAY *FRECIO UNITARIO”. 

ACCEPT PRECIO. 

DISPLAY. *¿CLIENTE FIJO?”. 

ACCEPT ASIDUO. m 

COMPUTE TOTAL = NUM-ARTICULO * PRECIO. 

IF TOTAL > 10000 OR NUM-ARTICULO > 100 
COMPUTE TOTAL = TOTAL - TOTAL x*x 0.1. 

IF TOTAL NOT > 10000 AND 4SIDUD = ”S” 
COMPUTE TOTAL = TOTAL - TOTAL *x 0.05. 

DISPLAY *TOTAL A COBRAR * TOTAL. 


F IN-PROGRAMA. 
STOP RUN. 
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